home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip Kasım 2000.iso / prog / share / 11 / setup.exe / %MAINDIR% / DEMOS / CIHTTP / HTTPEXP / explorer.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-09-07  |  46.5 KB  |  1,250 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
  3. Begin VB.Form Explorer 
  4.    Caption         =   "Explorer"
  5.    ClientHeight    =   4395
  6.    ClientLeft      =   450
  7.    ClientTop       =   1965
  8.    ClientWidth     =   8730
  9.    Icon            =   "Explorer.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    MouseIcon       =   "Explorer.frx":030A
  13.    PaletteMode     =   1  'UseZOrder
  14.    ScaleHeight     =   4395
  15.    ScaleWidth      =   8730
  16.    Begin VB.PictureBox picToolbar 
  17.       Align           =   1  'Align Top
  18.       Appearance      =   0  'Flat
  19.       BackColor       =   &H00C0C0C0&
  20.       BorderStyle     =   0  'None
  21.       ClipControls    =   0   'False
  22.       ForeColor       =   &H80000008&
  23.       Height          =   435
  24.       Left            =   0
  25.       ScaleHeight     =   435
  26.       ScaleWidth      =   8730
  27.       TabIndex        =   5
  28.       Top             =   0
  29.       Width           =   8730
  30.       Begin ComctlLib.Toolbar Toolbar 
  31.          Height          =   390
  32.          Left            =   0
  33.          TabIndex        =   6
  34.          Top             =   45
  35.          Width           =   7170
  36.          _ExtentX        =   12647
  37.          _ExtentY        =   688
  38.          AllowCustomize  =   0   'False
  39.          ImageList       =   "imgToolbar"
  40.          _Version        =   327682
  41.          BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  42.             NumButtons      =   13
  43.             BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  44.                Key             =   ""
  45.                Object.Tag             =   ""
  46.                Style           =   3
  47.             EndProperty
  48.             BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  49.                Key             =   "UpOneLevel"
  50.                Object.ToolTipText     =   "Up One Level"
  51.                Object.Tag             =   ""
  52.                ImageIndex      =   1
  53.             EndProperty
  54.             BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  55.                Key             =   ""
  56.                Object.Tag             =   ""
  57.                Style           =   3
  58.             EndProperty
  59.             BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  60.                Key             =   "ConNetDrive"
  61.                Object.ToolTipText     =   "Map Network Drive"
  62.                Object.Tag             =   ""
  63.                ImageIndex      =   2
  64.             EndProperty
  65.             BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  66.                Key             =   "DisconNetDrive"
  67.                Object.ToolTipText     =   "Disconnect Network Drive"
  68.                Object.Tag             =   ""
  69.                ImageIndex      =   3
  70.             EndProperty
  71.             BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  72.                Key             =   ""
  73.                Object.Tag             =   ""
  74.                Style           =   3
  75.             EndProperty
  76.             BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  77.                Key             =   "ConHTTP"
  78.                Object.ToolTipText     =   "Map HTTP Server"
  79.                Object.Tag             =   ""
  80.                ImageIndex      =   4
  81.             EndProperty
  82.             BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  83.                Key             =   "DisconHTTP"
  84.                Object.ToolTipText     =   "Disconnect HTTP Server"
  85.                Object.Tag             =   ""
  86.                ImageIndex      =   5
  87.             EndProperty
  88.             BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  89.                Key             =   ""
  90.                Object.Tag             =   ""
  91.                Style           =   3
  92.             EndProperty
  93.             BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  94.                Key             =   "LargeIcons"
  95.                Object.ToolTipText     =   "Large Icons"
  96.                Object.Tag             =   ""
  97.                ImageIndex      =   6
  98.                Style           =   2
  99.             EndProperty
  100.             BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  101.                Key             =   "SmallIcons"
  102.                Object.ToolTipText     =   "Small Icons"
  103.                Object.Tag             =   ""
  104.                ImageIndex      =   7
  105.                Style           =   2
  106.             EndProperty
  107.             BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  108.                Key             =   "List"
  109.                Object.ToolTipText     =   "List"
  110.                Object.Tag             =   ""
  111.                ImageIndex      =   8
  112.                Style           =   2
  113.             EndProperty
  114.             BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  115.                Key             =   "Details"
  116.                Object.ToolTipText     =   "Details"
  117.                Object.Tag             =   ""
  118.                ImageIndex      =   9
  119.                Style           =   2
  120.                Value           =   1
  121.             EndProperty
  122.          EndProperty
  123.       End
  124.       Begin VB.Label CrescentLabel 
  125.          AutoSize        =   -1  'True
  126.          Caption         =   "Crescent Internet ToolPak"
  127.          BeginProperty Font 
  128.             Name            =   "MS Sans Serif"
  129.             Size            =   9.75
  130.             Charset         =   0
  131.             Weight          =   700
  132.             Underline       =   0   'False
  133.             Italic          =   -1  'True
  134.             Strikethrough   =   0   'False
  135.          EndProperty
  136.          Height          =   240
  137.          Left            =   5820
  138.          TabIndex        =   14
  139.          Top             =   120
  140.          Visible         =   0   'False
  141.          Width           =   3030
  142.          WordWrap        =   -1  'True
  143.       End
  144.       Begin VB.Line lneBorder 
  145.          BorderColor     =   &H00E0E0E0&
  146.          Index           =   9
  147.          X1              =   0
  148.          X2              =   20000
  149.          Y1              =   15
  150.          Y2              =   15
  151.       End
  152.       Begin VB.Line lneBorder 
  153.          BorderColor     =   &H00808080&
  154.          Index           =   8
  155.          X1              =   0
  156.          X2              =   20000
  157.          Y1              =   0
  158.          Y2              =   0
  159.       End
  160.    End
  161.    Begin VB.PictureBox picExplorer 
  162.       Appearance      =   0  'Flat
  163.       BackColor       =   &H00C0C0C0&
  164.       BorderStyle     =   0  'None
  165.       ForeColor       =   &H80000008&
  166.       Height          =   3675
  167.       Left            =   0
  168.       ScaleHeight     =   3675
  169.       ScaleWidth      =   6255
  170.       TabIndex        =   2
  171.       Top             =   435
  172.       Width           =   6255
  173.       Begin VB.PictureBox picHeader 
  174.          BorderStyle     =   0  'None
  175.          Height          =   255
  176.          Index           =   0
  177.          Left            =   0
  178.          ScaleHeight     =   255
  179.          ScaleWidth      =   3075
  180.          TabIndex        =   12
  181.          Top             =   30
  182.          Width           =   3075
  183.          Begin VB.Line lneBorder 
  184.             BorderColor     =   &H00FFFFFF&
  185.             Index           =   3
  186.             X1              =   3060
  187.             X2              =   3060
  188.             Y1              =   0
  189.             Y2              =   240
  190.          End
  191.          Begin VB.Line lneBorder 
  192.             BorderColor     =   &H00FFFFFF&
  193.             Index           =   4
  194.             X1              =   0
  195.             X2              =   20000
  196.             Y1              =   240
  197.             Y2              =   240
  198.          End
  199.          Begin VB.Line lneBorder 
  200.             BorderColor     =   &H00808080&
  201.             Index           =   5
  202.             X1              =   0
  203.             X2              =   0
  204.             Y1              =   0
  205.             Y2              =   240
  206.          End
  207.          Begin VB.Line lneBorder 
  208.             BorderColor     =   &H00808080&
  209.             Index           =   0
  210.             X1              =   0
  211.             X2              =   20000
  212.             Y1              =   0
  213.             Y2              =   0
  214.          End
  215.          Begin VB.Label lblHeader 
  216.             Caption         =   "All Folders"
  217.             Height          =   180
  218.             Index           =   0
  219.             Left            =   60
  220.             TabIndex        =   13
  221.             Top             =   30
  222.             Width           =   2985
  223.          End
  224.       End
  225.       Begin VB.PictureBox picHeader 
  226.          BorderStyle     =   0  'None
  227.          Height          =   255
  228.          Index           =   1
  229.          Left            =   3135
  230.          ScaleHeight     =   255
  231.          ScaleWidth      =   3105
  232.          TabIndex        =   10
  233.          Top             =   30
  234.          Width           =   3105
  235.          Begin VB.Line lneBorder 
  236.             BorderColor     =   &H00808080&
  237.             Index           =   1
  238.             X1              =   0
  239.             X2              =   20000
  240.             Y1              =   0
  241.             Y2              =   0
  242.          End
  243.          Begin VB.Line lneBorder 
  244.             BorderColor     =   &H00808080&
  245.             Index           =   2
  246.             X1              =   0
  247.             X2              =   0
  248.             Y1              =   0
  249.             Y2              =   240
  250.          End
  251.          Begin VB.Line lneBorder 
  252.             BorderColor     =   &H00FFFFFF&
  253.             Index           =   6
  254.             X1              =   0
  255.             X2              =   20000
  256.             Y1              =   240
  257.             Y2              =   240
  258.          End
  259.          Begin VB.Line lneBorder 
  260.             BorderColor     =   &H00FFFFFF&
  261.             Index           =   7
  262.             X1              =   3090
  263.             X2              =   3090
  264.             Y1              =   0
  265.             Y2              =   240
  266.          End
  267.          Begin VB.Label lblHeader 
  268.             Height          =   180
  269.             Index           =   1
  270.             Left            =   60
  271.             TabIndex        =   11
  272.             Top             =   30
  273.             Width           =   3000
  274.          End
  275.       End
  276.       Begin VB.PictureBox picSeparator 
  277.          Appearance      =   0  'Flat
  278.          BackColor       =   &H00C0C0C0&
  279.          BorderStyle     =   0  'None
  280.          DrawMode        =   15  'Merge Pen Not
  281.          ForeColor       =   &H80000008&
  282.          Height          =   3600
  283.          Left            =   3075
  284.          MouseIcon       =   "Explorer.frx":0614
  285.          MousePointer    =   99  'Custom
  286.          ScaleHeight     =   3600
  287.          ScaleWidth      =   60
  288.          TabIndex        =   3
  289.          Top             =   45
  290.          Width           =   60
  291.       End
  292.       Begin ComctlLib.TreeView Tree 
  293.          Height          =   3360
  294.          Left            =   0
  295.          TabIndex        =   0
  296.          Top             =   315
  297.          Width           =   3075
  298.          _ExtentX        =   5424
  299.          _ExtentY        =   5927
  300.          _Version        =   327682
  301.          Indentation     =   300
  302.          LabelEdit       =   1
  303.          LineStyle       =   1
  304.          PathSeparator   =   "."
  305.          Style           =   7
  306.          ImageList       =   "imgSmallIcons"
  307.          Appearance      =   1
  308.       End
  309.       Begin ComctlLib.ListView List 
  310.          DragIcon        =   "Explorer.frx":091E
  311.          Height          =   3360
  312.          Left            =   3150
  313.          TabIndex        =   1
  314.          Top             =   330
  315.          Width           =   3105
  316.          _ExtentX        =   5477
  317.          _ExtentY        =   5927
  318.          View            =   3
  319.          LabelEdit       =   1
  320.          Sorted          =   -1  'True
  321.          LabelWrap       =   -1  'True
  322.          HideSelection   =   -1  'True
  323.          _Version        =   327682
  324.          Icons           =   "imgLargeIcons"
  325.          SmallIcons      =   "imgSmallIcons"
  326.          ForeColor       =   0
  327.          BackColor       =   16777215
  328.          Appearance      =   1
  329.          NumItems        =   4
  330.          BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
  331.             Key             =   "Name"
  332.             Object.Tag             =   ""
  333.             Text            =   "Name"
  334.             Object.Width           =   2540
  335.          EndProperty
  336.          BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
  337.             Key             =   "Size"
  338.             Object.Tag             =   ""
  339.             Text            =   "Size"
  340.             Object.Width           =   2540
  341.          EndProperty
  342.          BeginProperty ColumnHeader(3) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
  343.             Key             =   "Type"
  344.             Object.Tag             =   ""
  345.             Text            =   "Type"
  346.             Object.Width           =   2540
  347.          EndProperty
  348.          BeginProperty ColumnHeader(4) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
  349.             Key             =   "Modified"
  350.             Object.Tag             =   ""
  351.             Text            =   "Modified"
  352.             Object.Width           =   2540
  353.          EndProperty
  354.       End
  355.    End
  356.    Begin ComctlLib.StatusBar StatusBar 
  357.       Align           =   2  'Align Bottom
  358.       Height          =   285
  359.       Left            =   0
  360.       TabIndex        =   4
  361.       Top             =   4110
  362.       Width           =   8730
  363.       _ExtentX        =   15399
  364.       _ExtentY        =   503
  365.       SimpleText      =   ""
  366.       _Version        =   327682
  367.       BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
  368.          NumPanels       =   2
  369.          BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  370.             AutoSize        =   2
  371.             Key             =   "TemplateType"
  372.             Object.Tag             =   ""
  373.          EndProperty
  374.          BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  375.             AutoSize        =   1
  376.             Object.Width           =   12330
  377.             Key             =   "Author"
  378.             Object.Tag             =   ""
  379.          EndProperty
  380.       EndProperty
  381.    End
  382.    Begin VB.Label lblReadMe 
  383.       Caption         =   "Contains icons for the Toolbar."
  384.       ForeColor       =   &H00800000&
  385.       Height          =   525
  386.       Index           =   2
  387.       Left            =   7050
  388.       TabIndex        =   9
  389.       Top             =   1995
  390.       Visible         =   0   'False
  391.       Width           =   1275
  392.       WordWrap        =   -1  'True
  393.    End
  394.    Begin VB.Label lblReadMe 
  395.       Caption         =   "Contains small icons for ListView and Treeview."
  396.       ForeColor       =   &H00800000&
  397.       Height          =   600
  398.       Index           =   1
  399.       Left            =   7050
  400.       TabIndex        =   8
  401.       Top             =   1320
  402.       Visible         =   0   'False
  403.       Width           =   1275
  404.       WordWrap        =   -1  'True
  405.    End
  406.    Begin VB.Label lblReadMe 
  407.       Caption         =   "Contains large icons for ListView."
  408.       ForeColor       =   &H00800000&
  409.       Height          =   525
  410.       Index           =   0
  411.       Left            =   7050
  412.       TabIndex        =   7
  413.       Top             =   825
  414.       Visible         =   0   'False
  415.       Width           =   1275
  416.       WordWrap        =   -1  'True
  417.    End
  418.    Begin ComctlLib.ImageList imgToolbar 
  419.       Left            =   6405
  420.       Top             =   1905
  421.       _ExtentX        =   1005
  422.       _ExtentY        =   1005
  423.       BackColor       =   -2147483643
  424.       ImageWidth      =   16
  425.       ImageHeight     =   16
  426.       MaskColor       =   12632256
  427.       _Version        =   327682
  428.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  429.          NumListImages   =   9
  430.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  431.             Picture         =   "Explorer.frx":0A70
  432.             Key             =   "UpOneLevel"
  433.          EndProperty
  434.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  435.             Picture         =   "Explorer.frx":0D8A
  436.             Key             =   "ConNetDrive"
  437.          EndProperty
  438.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  439.             Picture         =   "Explorer.frx":10A4
  440.             Key             =   "DisconNetDrive"
  441.          EndProperty
  442.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  443.             Picture         =   "Explorer.frx":13BE
  444.             Key             =   "ConFTP"
  445.          EndProperty
  446.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  447.             Picture         =   "Explorer.frx":16D8
  448.             Key             =   "DisconFTP"
  449.          EndProperty
  450.          BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  451.             Picture         =   "Explorer.frx":19F2
  452.             Key             =   "LargeIcons"
  453.          EndProperty
  454.          BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  455.             Picture         =   "Explorer.frx":1D0C
  456.             Key             =   "SmallIcons"
  457.          EndProperty
  458.          BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  459.             Picture         =   "Explorer.frx":2026
  460.             Key             =   "List"
  461.          EndProperty
  462.          BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  463.             Picture         =   "Explorer.frx":2340
  464.             Key             =   "Details"
  465.          EndProperty
  466.       EndProperty
  467.    End
  468.    Begin ComctlLib.ImageList imgSmallIcons 
  469.       Left            =   6405
  470.       Top             =   1350
  471.       _ExtentX        =   1005
  472.       _ExtentY        =   1005
  473.       BackColor       =   -2147483643
  474.       ImageWidth      =   16
  475.       ImageHeight     =   16
  476.       _Version        =   327682
  477.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  478.          NumListImages   =   17
  479.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  480.             Picture         =   "Explorer.frx":265A
  481.             Key             =   "Desktop"
  482.          EndProperty
  483.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  484.             Picture         =   "Explorer.frx":2974
  485.             Key             =   "PC"
  486.          EndProperty
  487.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  488.             Picture         =   "Explorer.frx":2C8E
  489.             Key             =   "Network"
  490.          EndProperty
  491.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  492.             Picture         =   "Explorer.frx":2FA8
  493.             Key             =   "FolderClosed"
  494.          EndProperty
  495.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  496.             Picture         =   "Explorer.frx":32C2
  497.             Key             =   "FolderOpen"
  498.          EndProperty
  499.          BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  500.             Picture         =   "Explorer.frx":35DC
  501.             Key             =   "DriveNotShared"
  502.          EndProperty
  503.          BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  504.             Picture         =   "Explorer.frx":38F6
  505.             Key             =   "DirveShared"
  506.          EndProperty
  507.          BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  508.             Picture         =   "Explorer.frx":3C10
  509.             Key             =   "CDRom"
  510.          EndProperty
  511.          BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  512.             Picture         =   "Explorer.frx":3F2A
  513.             Key             =   "NetDrive"
  514.          EndProperty
  515.          BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  516.             Picture         =   "Explorer.frx":4244
  517.             Key             =   "FTPDrive"
  518.          EndProperty
  519.          BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  520.             Picture         =   "Explorer.frx":455E
  521.             Key             =   "LocalFile"
  522.          EndProperty
  523.          BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  524.             Picture         =   "Explorer.frx":4878
  525.             Key             =   "RemoteFile"
  526.          EndProperty
  527.          BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  528.             Picture         =   "Explorer.frx":4B92
  529.             Key             =   "FloppyDrive"
  530.          EndProperty
  531.          BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  532.             Picture         =   "Explorer.frx":4EAC
  533.             Key             =   "FTPServer"
  534.          EndProperty
  535.          BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  536.             Picture         =   "Explorer.frx":51C6
  537.             Key             =   "HTTPLink"
  538.          EndProperty
  539.          BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  540.             Picture         =   "Explorer.frx":54E0
  541.             Key             =   "HTTPLinkOpen"
  542.          EndProperty
  543.          BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  544.             Picture         =   "Explorer.frx":57FA
  545.             Key             =   "PlaceHolder"
  546.          EndProperty
  547.       EndProperty
  548.    End
  549.    Begin ComctlLib.ImageList imgLargeIcons 
  550.       Left            =   6405
  551.       Top             =   795
  552.       _ExtentX        =   1005
  553.       _ExtentY        =   1005
  554.       BackColor       =   -2147483643
  555.       ImageWidth      =   32
  556.       ImageHeight     =   32
  557.       MaskColor       =   12632256
  558.       _Version        =   327682
  559.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  560.          NumListImages   =   15
  561.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  562.             Picture         =   "Explorer.frx":5B14
  563.             Key             =   "Desktop"
  564.          EndProperty
  565.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  566.             Picture         =   "Explorer.frx":5E2E
  567.             Key             =   "PC"
  568.          EndProperty
  569.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  570.             Picture         =   "Explorer.frx":6148
  571.             Key             =   "Network"
  572.          EndProperty
  573.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  574.             Picture         =   "Explorer.frx":6462
  575.             Key             =   "FolderClosed"
  576.          EndProperty
  577.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  578.             Picture         =   "Explorer.frx":677C
  579.             Key             =   "FolderOpen"
  580.          EndProperty
  581.          BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  582.             Picture         =   "Explorer.frx":6A96
  583.             Key             =   "DriveNotShared"
  584.          EndProperty
  585.          BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  586.             Picture         =   "Explorer.frx":6DB0
  587.             Key             =   "DriveShared"
  588.          EndProperty
  589.          BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  590.             Picture         =   "Explorer.frx":70CA
  591.             Key             =   "CDRom"
  592.          EndProperty
  593.          BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  594.             Picture         =   "Explorer.frx":73E4
  595.             Key             =   "NetDrive"
  596.          EndProperty
  597.          BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  598.             Picture         =   "Explorer.frx":76FE
  599.             Key             =   "FTPDrive"
  600.          EndProperty
  601.          BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  602.             Picture         =   "Explorer.frx":7A18
  603.             Key             =   "LocalFile"
  604.          EndProperty
  605.          BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  606.             Picture         =   "Explorer.frx":7D32
  607.             Key             =   "RemoteFile"
  608.          EndProperty
  609.          BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  610.             Picture         =   "Explorer.frx":804C
  611.             Key             =   "FloppyDrive"
  612.          EndProperty
  613.          BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  614.             Picture         =   "Explorer.frx":8366
  615.             Key             =   "FTPServer"
  616.          EndProperty
  617.          BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  618.             Picture         =   "Explorer.frx":8680
  619.             Key             =   "HTTPLink"
  620.          EndProperty
  621.       EndProperty
  622.    End
  623.    Begin VB.Menu mnuFile 
  624.       Caption         =   "&File"
  625.       Begin VB.Menu mnuFileProperties 
  626.          Caption         =   "P&roperties"
  627.          Enabled         =   0   'False
  628.       End
  629.       Begin VB.Menu mnuFileSeparator3 
  630.          Caption         =   "-"
  631.       End
  632.       Begin VB.Menu mnuFileClose 
  633.          Caption         =   "&Close"
  634.       End
  635.    End
  636.    Begin VB.Menu mnuView 
  637.       Caption         =   "&View"
  638.       Begin VB.Menu mnuViewToolbar 
  639.          Caption         =   "&Toolbar"
  640.          Checked         =   -1  'True
  641.       End
  642.       Begin VB.Menu mnuViewStatusbar 
  643.          Caption         =   "Status &Bar"
  644.          Checked         =   -1  'True
  645.       End
  646.       Begin VB.Menu mnuViewSeparator1 
  647.          Caption         =   "-"
  648.       End
  649.       Begin VB.Menu mnuViewHTTP 
  650.          Caption         =   "HTTP &Status"
  651.       End
  652.       Begin VB.Menu mnuViewSeparator2 
  653.          Caption         =   "-"
  654.       End
  655.       Begin VB.Menu mnuViewList 
  656.          Caption         =   "Lar&ge Icons"
  657.          Index           =   0
  658.       End
  659.       Begin VB.Menu mnuViewList 
  660.          Caption         =   "S&mall Icons"
  661.          Index           =   1
  662.       End
  663.       Begin VB.Menu mnuViewList 
  664.          Caption         =   "&List"
  665.          Index           =   2
  666.       End
  667.       Begin VB.Menu mnuViewList 
  668.          Caption         =   "&Detail"
  669.          Checked         =   -1  'True
  670.          Index           =   3
  671.       End
  672.       Begin VB.Menu mnuViewSeparator3 
  673.          Caption         =   "-"
  674.       End
  675.       Begin VB.Menu mnuViewRefresh 
  676.          Caption         =   "&Refresh"
  677.       End
  678.       Begin VB.Menu mnuViewOptions 
  679.          Caption         =   "&Options..."
  680.          Visible         =   0   'False
  681.       End
  682.    End
  683.    Begin VB.Menu mnuTools 
  684.       Caption         =   "&Tools"
  685.       Begin VB.Menu mnuToolsFind 
  686.          Caption         =   "&Find..."
  687.          Enabled         =   0   'False
  688.       End
  689.       Begin VB.Menu mnuToolsSeparator1 
  690.          Caption         =   "-"
  691.       End
  692.       Begin VB.Menu mnuToolsMapNet 
  693.          Caption         =   "&Map Network Drive..."
  694.       End
  695.       Begin VB.Menu mnuToolsDisconNet 
  696.          Caption         =   "&Disconnect Network Drive..."
  697.       End
  698.       Begin VB.Menu mnuToolsSeparator2 
  699.          Caption         =   "-"
  700.       End
  701.       Begin VB.Menu mnuToolsMapHTTP 
  702.          Caption         =   "Map HTTP &Server..."
  703.       End
  704.       Begin VB.Menu mnuToolsDisconHTTP 
  705.          Caption         =   "Disc&onnect HTTP Server..."
  706.       End
  707.       Begin VB.Menu mnuToolsSeparator3 
  708.          Caption         =   "-"
  709.       End
  710.       Begin VB.Menu mnuToolsGoTo 
  711.          Caption         =   "&Go to..."
  712.          Enabled         =   0   'False
  713.       End
  714.    End
  715.    Begin VB.Menu mnuHelp 
  716.       Caption         =   "&Help"
  717.       Begin VB.Menu mnuHelpContents 
  718.          Caption         =   "&Contents"
  719.          Enabled         =   0   'False
  720.       End
  721.       Begin VB.Menu mnuHelpSeparator1 
  722.          Caption         =   "-"
  723.       End
  724.       Begin VB.Menu mnuHelpAbout 
  725.          Caption         =   "&About"
  726.       End
  727.    End
  728.    Begin VB.Menu mnuFolderPopup 
  729.       Caption         =   "FolderPopup"
  730.       Visible         =   0   'False
  731.       Begin VB.Menu mnuFPOpen 
  732.          Caption         =   "Open"
  733.       End
  734.    End
  735. Attribute VB_Name = "Explorer"
  736. Attribute VB_GlobalNameSpace = False
  737. Attribute VB_Creatable = False
  738. Attribute VB_PredeclaredId = True
  739. Attribute VB_Exposed = False
  740. Option Explicit
  741. '<Class> -------------------------------------
  742. Public MyName                   As String
  743. '</Class> ------------------------------------
  744. '<Constant>----------------------------------
  745. 'resizing --------------
  746. Const TreeViewContainer As Integer = 0
  747. Const ListViewContainer As Integer = 1
  748. Const BorderPad         As Integer = 1335
  749. Const BorderWidth       As Integer = 120
  750. Const FourPixels        As Integer = 60
  751. Const SplitBarWidth     As Integer = 60
  752. Const FrameLeft         As Integer = 1905
  753. Const FrameTop          As Integer = 45
  754. '</Constant>----------------------------------
  755. '<Private>------------------------------------
  756. Private ButtonClicked   As Boolean
  757. Private DblClicking     As Boolean
  758. Private Sizing          As Boolean
  759. Private SplitterDrag    As Boolean
  760. '</Private>-----------------------------------
  761. '<Public>-------------------------------------
  762. Public Dragging         As Boolean
  763. Public Attachments      As Collection  'extra data pertaining to a node
  764. Public ThisItem         As ListItem
  765. Public LastNode         As Node
  766. Public ThisNode         As Node
  767. Public WorkingNode      As Node
  768. Public PathSeparator    As String
  769. '</Public>------------------------------------
  770. Private Sub List_ItemClick(ByVal Item As ListItem)
  771.     Tree.HideSelection = True
  772. End Sub
  773. Private Sub Form_Initialize()
  774.     MyName = "ciHTTPExplorer"
  775.     Set Attachments = New Collection
  776. End Sub
  777. Private Sub Form_Load()
  778.     Dim RootNode    As Node
  779.     Screen.MousePointer = vbHourglass
  780.     '<Initialize TreeView>-----------------------
  781.     '---- desktop
  782.     Set RootNode = Tree.Nodes.Add(, , "Root", "Desktop", imgDesktop)
  783.     '<MyComputer>-----------------------
  784.     Set ThisNode = Tree.Nodes.Add(RootNode, tvwChild, RootNode.Key & "." & "MyComputer", "My Computer", imgPC)
  785.     '---- also create and add attachment
  786.     Dim ThisAttachment As New Attachment
  787.     ThisAttachment.NodeType = nodMyComputer
  788.     Call Attachments.Add(ThisAttachment, RootNode.Key & "." & "MyComputer")
  789.     Set ThisAttachment = Nothing
  790.     '---- local and network drives
  791.     Call AddLocalDrives(Me, ThisNode)
  792.     '</MyComputer>----------------------
  793.     '<HTTPServers>-----------------------
  794.     Set ThisNode = Tree.Nodes.Add(RootNode, tvwChild, RootNode.Key & "." & "HTTPServers", "HTTP Servers", imgHTTPServers)
  795.     '---- also create and add attachment
  796.     Dim ThisAttachment2 As New Attachment
  797.     ThisAttachment2.NodeType = nodHTTPServers
  798.     Call Attachments.Add(ThisAttachment2, RootNode.Key & "." & "HTTPServers")
  799.     Set ThisAttachment2 = Nothing
  800.     '---- stub out all servers designated "reconnect as startup"
  801.     Call AddHTTPServers(Me, ThisNode)
  802.     '</HTTPServers>----------------------
  803.     '---- show all nodes
  804.     Tree.Nodes(1).Expanded = True
  805.     '</Initialize TreeView>----------------------
  806.     Call GetWindowState(Me, MyName)
  807.     Call GetSplitterBarState(Me, MyName)
  808.     Call GetColumnHeaderState(Me, MyName)
  809.     Screen.MousePointer = vbDefault
  810. End Sub
  811. '------------------------------------------------------
  812. '<Purpose> saves state information
  813. '------------------------------------------------------
  814. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  815.     Call SetWindowState(Me, MyName)
  816.     Call SetSplitterBarState(Me, MyName)
  817.     Call SetColumnHeaderState(Me, MyName)
  818.     If (UnloadMode = vbFormControlMenu) Then ExitProc
  819. End Sub
  820. Private Sub Form_Resize()
  821.     SizeMe
  822. End Sub
  823. Private Sub Form_Terminate()
  824.     '---- explicitly destroy all objects
  825.     Set Attachments = Nothing
  826.     Set LastNode = Nothing
  827.     Set ThisItem = Nothing
  828.     Set ThisNode = Nothing
  829.     Set WorkingNode = Nothing
  830. End Sub
  831. Private Sub lblHeader_DragDrop(Index As Integer, Source As Control, X As Single, y As Single)
  832.     If (Index = 0) Then
  833.         If (Source Is picSeparator) Then
  834.             Call SplitMe(X, Tree)
  835.         End If
  836.     Else
  837.         If (Source Is picSeparator) Then
  838.             Call SplitMe(X, List)
  839.         End If
  840.     End If
  841. End Sub
  842. Private Sub List_ColumnClick(ByVal ColumnHeader As ColumnHeader)
  843.     List.SortKey = ColumnHeader.Index - 1
  844.     If (List.Sorted = False) Then
  845.         List.Sorted = True
  846.         List.SortOrder = 0
  847.     Else
  848.         If (List.SortOrder = 0) Then
  849.             List.SortOrder = 1
  850.         Else
  851.             List.SortOrder = 0
  852.         End If
  853.     End If
  854. End Sub
  855. Private Sub List_DblClick()
  856.     Dim WorkingNode     As Node
  857.     '<Launch Web Page>
  858.     Dim CharPos         As Integer
  859.     Dim NodeKey         As String
  860.     Dim URL             As String
  861.     '<Launch Web Page>
  862.     On Error GoTo BadNode
  863.     DblClicking = True
  864.     Select Case List.SelectedItem.Icon
  865.         '<Launch Web Page>
  866.         Case imgHTTPFile
  867.             NodeKey = List.SelectedItem.Key
  868.             CharPos = InStr(NodeKey, "~")
  869.             If (CharPos > 0) Then
  870.                 NodeKey = left(NodeKey, CharPos - 1)
  871.                 If (LCase(left(List.SelectedItem, 7)) = "http://") Then
  872.                     URL = List.SelectedItem
  873.                 Else
  874.                     '---- the URL is the host name and the page that is selected
  875.                     URL = Attachments(NodeKey).Session.HTTPControl.HostName
  876.                     If (left(List.SelectedItem, 1) = "/") Then
  877.                         URL = URL & List.SelectedItem
  878.                     Else
  879.                         URL = URL & "/" & List.SelectedItem
  880.                     End If
  881.                 End If
  882.                 Call ShellExecute(Me.hwnd, "open", URL, 0, 0, 1)
  883.             End If
  884.         Case imgLocalFile
  885.             GoTo Cleanup
  886.         '<Launch Web Page>
  887.     End Select
  888.             
  889.     Set WorkingNode = Tree.Nodes(List.SelectedItem.Key)
  890.     WorkingNode.Expanded = True
  891. Cleanup:
  892.     On Error GoTo 0
  893.     Set WorkingNode = Nothing
  894.     DblClicking = False
  895.     Exit Sub
  896. BadNode:
  897.     GoTo Cleanup
  898. End Sub
  899. Private Sub List_DragDrop(Source As Control, X As Single, y As Single)
  900.     If (Source Is picSeparator) Then
  901.         Call SplitMe(X, List)
  902.     End If
  903. End Sub
  904. Private Sub List_KeyDown(KeyCode As Integer, Shift As Integer)
  905.     If (KeyCode = vbKeyReturn) Then List_DblClick
  906. End Sub
  907. Private Sub mnuFileClose_Click()
  908.     ExitProc
  909. End Sub
  910. Private Sub mnuFileProperties_Click()
  911.     NotDone
  912. End Sub
  913. Private Sub mnuFPOpen_Click()
  914.     List_DblClick
  915. End Sub
  916. Private Sub mnuHelpAbout_Click()
  917.     AboutBox.Show vbModal
  918. End Sub
  919. Private Sub mnuHelpContents_Click()
  920.     NotDone
  921. End Sub
  922. Private Sub mnuToolsDisconHTTP_Click()
  923.     Dim ThisNode    As Node
  924.     Dim Alias       As String
  925.     Dim NodeKey     As String
  926.     '---- modify Reconnect bit in Server object
  927.     With Disconnect
  928.         Set .ServersNode = Tree.Nodes.Item("Root.HTTPServers")
  929.         .Show vbModal
  930.         If (Not .PressedOK) Then Exit Sub
  931.         Alias = .Alias
  932.     End With
  933.     '---- disconnect the Server object and remove the node from the tree
  934.     Call MapServers.Disconnect(Alias)
  935.     Set ThisNode = Tree.Nodes.Item("Root.HTTPServers." & Alias)
  936.     Call RemoveNode(ThisNode)
  937.     Set ThisNode = Nothing
  938. End Sub
  939. Private Sub mnuToolsDisconNet_Click()
  940.     '----- API to disconnect a network drive
  941.     If (WNetDisconnectDialog(Me.hwnd, RESOURCETYPE_DISK) = ERROR_SUCCESS) Then
  942.         '---- remove the drive
  943.         Call RemoveNetDrive(Me, Tree.Nodes.Item("Root.MyComputer"))
  944.     End If
  945. End Sub
  946. Private Sub mnuToolsFind_Click()
  947.     NotDone
  948. End Sub
  949. Private Sub mnuToolsGoTo_Click()
  950.     NotDone
  951. End Sub
  952. Private Sub mnuToolsMapHTTP_Click()
  953.     Call MapServer(Me)
  954. End Sub
  955. Private Sub mnuToolsMapNet_Click()
  956.     '---- API call that shows net connection dialog
  957.     If (WNetConnectionDialog(Me.hwnd, RESOURCETYPE_DISK) = ERROR_SUCCESS) Then
  958.         '---- load the new drive
  959.         Call AddLocalDrives(Me, Tree.Nodes.Item("Root.MyComputer"))
  960.     End If
  961. End Sub
  962. Private Sub mnuViewHTTP_Click()
  963.     Status.Show
  964. End Sub
  965. Private Sub mnuViewList_Click(Index As Integer)
  966.     Dim i           As Integer
  967.     Dim ButtonKey   As String
  968.     For i = 0 To 3
  969.         mnuViewList(i).Checked = False
  970.     Next
  971.     mnuViewList(Index).Checked = True
  972.     List.View = Index
  973.     If ButtonClicked Then Exit Sub
  974.     Select Case Index
  975.         Case 0: ButtonKey = "LargeIcons"
  976.         Case 1: ButtonKey = "SmallIcons"
  977.         Case 2: ButtonKey = "List"
  978.         Case 3: ButtonKey = "Details"
  979.     End Select
  980.     Toolbar.Buttons(ButtonKey).Value = tbrPressed
  981. End Sub
  982. Private Sub mnuViewOptions_Click()
  983.     NotDone
  984. End Sub
  985. Private Sub mnuViewRefresh_Click()
  986.     '---- force refresh of tree
  987.     Set LastNode = Nothing
  988.     Tree_NodeClick ThisNode
  989. End Sub
  990. Private Sub mnuViewStatusbar_Click()
  991.     mnuViewStatusbar.Checked = (Not mnuViewStatusbar.Checked)
  992.     StatusBar.Visible = mnuViewStatusbar.Checked
  993.     Call SizeMe
  994. End Sub
  995. Private Sub mnuViewToolbar_Click()
  996.     mnuViewToolbar.Checked = (Not mnuViewToolbar.Checked)
  997.     picToolbar.Visible = mnuViewToolbar.Checked
  998.     Call SizeMe
  999. End Sub
  1000. Private Sub picSeparator_DragDrop(Source As Control, X As Single, y As Single)
  1001.     ClearCursor
  1002. End Sub
  1003. Private Sub picSeparator_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
  1004.     If (Button <> vbLeftButton) Then Exit Sub
  1005.     Call ConfineCursor(y)
  1006.     picSeparator.Drag vbBeginDrag
  1007.     SplitterDrag = True
  1008. End Sub
  1009. Private Sub picSeparator_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single)
  1010.     ClearCursor
  1011. End Sub
  1012. Private Sub ClearCursor()
  1013.     If (Not SplitterDrag) Then Exit Sub
  1014.     ReturnCode = ClipCursorClear(0&)
  1015.     SplitterDrag = False
  1016. End Sub
  1017. Private Sub ConfineCursor(y As Single)
  1018.     Dim SplitterRectangle As RECT
  1019.     Dim Borders           As Long
  1020.     Dim TreeLeft          As Integer
  1021.     Call GetWindowRect(picSeparator.hwnd, SplitterRectangle)
  1022.     '---- set RECT variables
  1023.     Borders = SplitterRectangle.Top + (y \ Screen.TwipsPerPixelY)
  1024.     TreeLeft = (Me.left + 600) \ Screen.TwipsPerPixelX
  1025.     SplitterRectangle.left = TreeLeft
  1026.     SplitterRectangle.Top = Borders
  1027.     SplitterRectangle.right = TreeLeft + ((Me.Width - 1100) \ Screen.TwipsPerPixelX)
  1028.     SplitterRectangle.bottom = Borders
  1029.     ReturnCode = ClipCursorRect(SplitterRectangle)
  1030. End Sub
  1031. Private Sub Toolbar_ButtonClick(ByVal Button As Button)
  1032.     ButtonClicked = True
  1033.     Select Case Button.Key
  1034.         Case "ConNetDrive":     mnuToolsMapNet_Click
  1035.         Case "DisconNetDrive":  mnuToolsDisconNet_Click
  1036.         Case "ConHTTP":         mnuToolsMapHTTP_Click
  1037.         Case "DisconHTTP":      mnuToolsDisconHTTP_Click
  1038.         Case "Properties":      mnuFileProperties_Click
  1039.         Case "Find":            mnuToolsFind_Click
  1040.         Case "LargeIcons":      mnuViewList_Click 0
  1041.         Case "SmallIcons":      mnuViewList_Click 1
  1042.         Case "List":            mnuViewList_Click 2
  1043.         Case "Details":         mnuViewList_Click 3
  1044.         Case "UpOneLevel":      UpOneLevel
  1045.     End Select
  1046.     ButtonClicked = False
  1047. End Sub
  1048. Private Sub Tree_Collapse(ByVal Node As Node)
  1049.     lblHeader(ListViewContainer).Caption = "Contents of '" & Node.Text & "'"
  1050.     Node.Selected = True
  1051. End Sub
  1052. Private Sub Tree_DragDrop(Source As Control, X As Single, y As Single)
  1053.     If (Source Is picSeparator) Then
  1054.         Call SplitMe(X, Tree)
  1055.         Exit Sub
  1056.     End If
  1057. End Sub
  1058. Public Sub SplitMe(X As Single, ThisControl As Control)
  1059.     Dim ProjectWidth        As Integer
  1060.     Dim SplitContainerWidth As Integer
  1061.     ClearCursor
  1062.     '---- size the two project control
  1063.     If (ThisControl Is Tree) Then
  1064.         Tree.Width = X
  1065.         picSeparator.left = X
  1066.     Else
  1067.         picSeparator.left = List.left + X - SplitBarWidth
  1068.         Tree.Width = X + Tree.Width
  1069.     End If
  1070.     '---- cache widths
  1071.     ProjectWidth = Tree.Width
  1072.     SplitContainerWidth = Me.ScaleWidth
  1073.     '---- place and size the two feature control
  1074.     Call List.Move((picSeparator.left + SplitBarWidth), List.Top, (SplitContainerWidth - ProjectWidth - SplitBarWidth))
  1075.     '---- set header
  1076.     picHeader(TreeViewContainer).Width = ProjectWidth
  1077.     lblHeader(TreeViewContainer).Width = picHeader(TreeViewContainer).Width - FourPixels - 15
  1078.     lneBorder(3).X1 = picHeader(TreeViewContainer).Width - 15
  1079.     lneBorder(3).X2 = lneBorder(3).X1
  1080.     '---- set header
  1081.     picHeader(ListViewContainer).left = List.left
  1082.     picHeader(ListViewContainer).Width = List.Width
  1083.     lblHeader(ListViewContainer).Width = picHeader(ListViewContainer).Width - FourPixels
  1084.     lneBorder(7).X1 = picHeader(ListViewContainer).Width - 15
  1085.     lneBorder(7).X2 = lneBorder(7).X1
  1086. End Sub
  1087. Private Sub Tree_Expand(ByVal Node As Node)
  1088.     Tree_NodeClick Node
  1089. End Sub
  1090. Public Sub Tree_NodeClick(ByVal Node As Node)
  1091.     Dim NodeType    As Integer
  1092.     '---- cache node
  1093.     Set ThisNode = Node
  1094.     '---- show appropriate captions
  1095.     Me.Caption = "Exploring - " & Node.Text
  1096.     lblHeader(ListViewContainer).Caption = "Contents of '" & Node.Text & "'"
  1097.     Select Case Node.Key
  1098.         Case "Root"
  1099.             lblHeader(TreeViewContainer).Caption = "All Services"
  1100.         Case "Root.MyComputer"
  1101.             lblHeader(TreeViewContainer).Caption = "All Local Drives"
  1102.         Case "Root.HTTPServers"
  1103.             lblHeader(TreeViewContainer).Caption = "All HTTP Servers"
  1104.         Case Else
  1105.             lblHeader(TreeViewContainer).Caption = "All Folders"
  1106.     End Select
  1107.     '---- no need to redraw twice in a row
  1108.     If (Not (LastNode Is Nothing)) Then
  1109.         If LastNode Is Node Then Exit Sub
  1110.     End If
  1111.     Set LastNode = Node
  1112.     '---- see if this node has been expanded before, if not remove the placeholder
  1113.     If (Not Node.Child Is Nothing) Then
  1114.         If (Node.Child.Text = nodPlaceHolder) Then
  1115.             Call Tree.Nodes.Remove(Node.Child.Key)
  1116.         End If
  1117.     End If
  1118.     Node.Selected = True
  1119.         
  1120.     On Error GoTo NoExtraData
  1121.     NodeType = Attachments(ThisNode.Key).NodeType
  1122.             
  1123.     '---- show appropriate status in panel 2
  1124.     Select Case NodeType
  1125.         Case nodLocalDrive
  1126.             StatusBar.Panels(2).Text = "Local Drive: " & Node.Text
  1127.         Case nodLocalFolder
  1128.             StatusBar.Panels(2).Text = "Local Folder: " & Node.Text
  1129.         Case nodHTTPServer
  1130.             StatusBar.Panels(2).Text = "HTTP Server: " & Node.Text
  1131.         Case nodHTTPFolder
  1132.             StatusBar.Panels(2).Text = "HTTP Folder: " & Node.Text
  1133.         Case Else
  1134.             StatusBar.Panels(2).Text = ""
  1135.     End Select
  1136.             
  1137.     '---- specific processing of node
  1138.     Select Case NodeType
  1139.         Case nodLocalDrive, nodLocalFolder
  1140.             '---- turn off redraw on TreeView and ListView
  1141.             Call SendMessage(Tree.hwnd, WM_SETREDRAW, REDRAWOFF, 0&)
  1142.             Call SendMessage(List.hwnd, WM_SETREDRAW, REDRAWOFF, 0&)
  1143.             
  1144.             '---- turn off sort until all items are added
  1145.             List.Sorted = False
  1146.             
  1147.             '---- add directories and files
  1148.             Call AddLocalDirs(Me, ThisNode)
  1149.             Call AddLocalFiles(Me, ThisNode)
  1150.             
  1151.             List.Sorted = True
  1152.             '---- turn redraw back on
  1153.             Call SendMessage(Tree.hwnd, WM_SETREDRAW, REDRAWON, 0&)
  1154.             Call SendMessage(List.hwnd, WM_SETREDRAW, REDRAWON, 0&)
  1155.         
  1156.         Case nodHTTPServer, nodHTTPFolder
  1157.         
  1158.             Me.MousePointer = vbHourglass
  1159.             
  1160.             '---- turn off sort until all items are added
  1161.             List.Sorted = False
  1162.             
  1163.             '---- add anchors, images, and tags
  1164.             List.ListItems.Clear
  1165.             Call ListHTTPServer(Me, ThisNode)
  1166.             
  1167.             List.Sorted = True
  1168.         Case Else
  1169.             List.ListItems.Clear
  1170.             
  1171.             '---- draw children in List list
  1172.             Call ListChildren(Me, ThisNode)
  1173.     End Select
  1174.     StatusBar.Panels(1).Text = List.ListItems.Count & " object(s)"
  1175.     Exit Sub
  1176. NoExtraData:
  1177.     On Error GoTo 0
  1178.     NodeType = nodUndefined
  1179.     Resume Next
  1180. End Sub
  1181. '----------------------------------------------------------
  1182. '<Purpose> resizes the controls to match the form size
  1183. '----------------------------------------------------------
  1184. Private Sub SizeMe()
  1185.     Dim ExplorerHeight  As Integer
  1186.     Dim ExplorerTop     As Integer
  1187.     '---- prevent recursive sizing
  1188.     If Sizing Then Exit Sub
  1189.     Sizing = True
  1190.     '---- calculate size of main area
  1191.     If picToolbar.Visible Then
  1192.         ExplorerHeight = (Me.Height - 470 - picToolbar.Height - BorderWidth)
  1193.         ExplorerTop = 435
  1194.     Else
  1195.         ExplorerHeight = (Me.Height - 470 - BorderWidth)
  1196.         ExplorerTop = 0
  1197.     End If
  1198.     If StatusBar.Visible Then
  1199.         ExplorerHeight = (ExplorerHeight - StatusBar.Height - BorderWidth)
  1200.     Else
  1201.         ExplorerHeight = (ExplorerHeight - BorderWidth)
  1202.     End If
  1203.     On Error Resume Next
  1204.         '---- place container
  1205.         picExplorer.Move 0, ExplorerTop, (Me.Width - 120), ExplorerHeight
  1206.         Tree.Move Tree.left, Tree.Top, Tree.Width, (picExplorer.Height - 285)
  1207.         List.Move List.left, List.Top, (Me.ScaleWidth - Tree.Width - SplitBarWidth), (picExplorer.Height - 285)
  1208.         picSeparator.Height = picExplorer.Height - 45
  1209.         
  1210.         picHeader(ListViewContainer).Width = List.Width
  1211.         lblHeader(ListViewContainer).Width = List.Width - BorderPad - 30
  1212.         lneBorder(7).X1 = picHeader(ListViewContainer).Width - 15
  1213.         lneBorder(7).X2 = lneBorder(7).X1
  1214.         
  1215.     On Error GoTo 0
  1216.     Sizing = False
  1217. End Sub
  1218. Private Sub UpOneLevel()
  1219.     On Error GoTo BadNode
  1220.     Set WorkingNode = ThisNode.Parent
  1221.     '---- select node
  1222.     Tree.HideSelection = True
  1223.     Tree.HideSelection = False
  1224.     Tree_NodeClick WorkingNode
  1225.     On Error GoTo 0
  1226.     Exit Sub
  1227. BadNode:
  1228.     On Error GoTo 0
  1229. End Sub
  1230. '--------------------------------------------------------
  1231. '<Purpose> removes an node and destroys it's attachment
  1232. '--------------------------------------------------------
  1233. Public Sub RemoveNode(ThisNode As Node)
  1234.     Dim NodeKey As String
  1235.     On Error GoTo BadNode
  1236.     '---- destroy any attachments
  1237.     NodeKey = ThisNode.Key
  1238.     On Error Resume Next
  1239.     Unload Attachments(NodeKey).Session
  1240.     Set Attachments(NodeKey).Session = Nothing
  1241.     Call Attachments.Remove(NodeKey)
  1242.     On Error GoTo 0
  1243.     '---- remove node from tree
  1244.     Tree.Nodes.Remove ThisNode.Key
  1245.     On Error GoTo 0
  1246.     Exit Sub
  1247. BadNode:
  1248.     On Error GoTo 0
  1249. End Sub
  1250.